﻿Imports tiendaRegalos

Public Class BuscarUsuario

    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click

        Dim criterio As String = Me.txtBuscar.Text
        'MsgBox(criterio)

        Dim negocio As New UsuarioNegocio
        Dim usuario As Collection = negocio.buscarPorNombre(criterio)
        Me.dgbProductos.DataSource = usuario
        Me.dgbProductos.EditMode = False

        Me.dgbProductos.Columns(0).HeaderText = "idUsuario"
        Me.dgbProductos.Columns(1).HeaderText = "idRol"
        Me.dgbProductos.Columns(2).HeaderText = "Nombre"
        Me.dgbProductos.Columns(3).HeaderText = "Correo"
        Me.dgbProductos.Columns(4).HeaderText = "Paterno"
        Me.dgbProductos.Columns(5).HeaderText = "Materno"
        Me.dgbProductos.Columns(6).HeaderText = "DNI"
        Me.dgbProductos.Columns(7).HeaderText = "Direccion"
        Me.dgbProductos.Columns(8).HeaderText = "FechaNacimiento"
        Me.dgbProductos.Columns(9).HeaderText = "Estado"
        Me.dgbProductos.Columns(10).HeaderText = "Clave"
        Me.dgbProductos.Columns(11).HeaderText = "Telefono"
        Me.dgbProductos.Columns(12).HeaderText = "Ciudad"

    End Sub

End Class